﻿Imports Microsoft.VisualBasic
Imports System.Text
Imports System.Web.UI
Imports System.Web
Imports AjaxControlToolkit

Public Class Alerts

    Public Sub Show(ByVal message As String, ByVal title As String)

        Dim page As System.Web.UI.Page = TryCast(System.Web.HttpContext.Current.Handler, System.Web.UI.Page)
        Dim popUpWin As ModalPopupExtender = CType(page.Master.FindControl("MPE_Alert"), ModalPopupExtender)
        Dim zprava As Label = CType(page.Master.FindControl("lbl_message"), Label)
        Dim titulek As Label = CType(page.Master.FindControl("lbl_title"), Label)

        zprava.Text = message
        titulek.Text = title
        popUpWin.Show()

    End Sub
End Class
